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EEPP (EDITOR EVEN PARITY PUNCH) 


DECUS Program Library Write-up 


DECUS NO. 8-507 


/EEPP 

/EDITOR EVEN PARITY PUNCH. 

/TO PUNCH ASCII EVEN PARITY FROM EDITOR 08-ESAC-PB 
/(PAL III 8 J JAN 72 SPECIAL PURPOSE MACHINES DEPT 
/PLESSEY, ILFORD, U.K. ) 




*0057 



005 7 

1674 


BUFBEG 

/CHANGE BUFFER START 



*0115 



0115 

1674 

/ 

BUFBEG 




/ 

/PATCH TO PRINTER ROUTINE 




*1147 



1147 

4750 


JMS 1 .+1 


1150 

1660 

/ 

PRINT 




/ 

*1625 



1625 

0000 

PARITY, 

0 


1626 

3255 


DCA CHAR 


1627 

3256 


DCA COUNT 

/SET COUNT = 0 

1630 

1255 


TAD CHAR 


1631 

7450 


SNA 

/BLANK ? 

1632 

5625 


JMP 1 PARITY 

/YES RECORD 

1633 

7104 

ROTATE, 

CLL RAL 

/NO: COUNT DIGITS 

1634 

7420 


SNL 

/LINK =0 ? 

1635 

5233 


JMP .-2 

/YES, BACK TO ROTATE 

1636 

2256 


ISZ COUNT 

/NO: COUNT LAST DIGIT 

1637 

7440 


SZA 

/IS AC * 0 ? 

1640 

5233 


JMP ROTATE 

/NO, BACK TO ROTATE 

1641 

1256 


TAD COUNT 

/YES, GET NO OF DIGITS 

1642 

7010 


RAR 

/PUT LSD IN LINK 

1643 

7620 


CLA SNL 

/IS ODD ? 

1644 

5253 


JMP GET 

/NO 

1645 

1255 


TAD CHAR 

/YES: CHANGE TO EVEN 

1646 

0257 


AND MASK 


1647 

7040 


CMA 


1650 

0255 


AND CHAR 


1651 

5625 


JMP 1 PARITY 


1652 

7402 


HLT 


1653 

1255 

GET, 

TAD CHAR 


1654 

5625 


JMP 1 PARITY 


1655 

0000 

CHAR, 

0000 


1656 

0000 

COUNT, 

0000 


1657 

0200 

MASK, 

0200 







/COME HERE FROM EDITOR 


l 


\ 


166/ 

0000 PRINT, 

0 

1661 

4225 

JMS PARITY 

1662 

6/41 

TSF 

1663 

5262 

JMP .-1 

1664 

226/ 

ISZ PRINT 

1665 

566/ 

JMP 1 PRINT 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


1666 

0000 

PUNCH, 

/ 

1667 

4225 


JMS PARITY 

167/ 

6/21 


PSF 

1671 

527/ 


JMP .-1 

1672 

2266 


ISZ PUNCH 

1673 

5666 

/ 

/PATCH 

*1155 

JMP 1 PUNCH 

BUFBEG=. 

TO HSP ROUTINE 

1155 

4756 


JMS 1 .+1 

1156 

1666 


PUNCH 


/RETURN 


/COME HERE FROM EDITOR 


/RETURN 


/REPLACES PSF 
/REPLACES JMP.-l 





BUFBEG 

1674 

CHAR 

1655 

COUNT 

1656 

GET 

1653 

MASK 

1657 

PARITY 

1625 

PRINT 

166/ 

PUNCH 

1666 

ROTATE 

1633 




2 



